home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Codice Robot anni precedenti / CR2-SRC.ZIP / BAEOS.R < prev    next >
Encoding:
Text File  |  1992-09-21  |  1.6 KB  |  85 lines
  1. /*BAEOS DI ALBERTO MORRI 6/3/1968*/
  2. /*VIA DANDOLO 43 RIMINI (FO)*/
  3. /*TEL. 0541-56232*/
  4. int    ang;
  5. main()
  6. {
  7.     drive(0, 100);        /*muove verso est*/
  8.     while (loc_x() < 960) 
  9.         cannon(180, 300);
  10.     drive(90, 0);
  11.     while (speed() > 45) 
  12.         cannon(180, 300);
  13.     while (1) {
  14.         drive(90, 100);  /*muove verso nord*/
  15.         ang = 270;
  16.         while (loc_y() < 940) {
  17.             if (dist = scan(ang, 8)) /*cerca nemico*/ {
  18.                 cannon(ang, 7 * dist / 8);
  19.                 ang += 10;
  20.             } else
  21.              {
  22.                 ang -= 10;
  23.                 if (ang <= 80) 
  24.                     ang = 280;
  25.             }
  26.         }
  27.         drive(180, 0);
  28.         while (speed() > 49) 
  29.             cannon(225, 300);
  30.  
  31.         drive(180, 100);       /*muove verso ovest*/
  32.         ang = 360;
  33.         while (loc_x() > 60) {
  34.             if (dist = scan(ang, 8)) /*cerca nemico*/ {
  35.                 cannon(ang, 7 * dist / 8);
  36.                 ang += 10;
  37.             } else
  38.              {
  39.                 ang -= 10;
  40.                 if (ang <= 170) 
  41.                     ang = 370;
  42.             }
  43.         }
  44.         drive(270, 0);
  45.         while (speed() > 49) 
  46.             cannon(315, 300);
  47.  
  48.         drive(270, 100);       /*muove verso sud*/
  49.         ang = 450;
  50.         while (loc_y() > 60) {
  51.             if (dist = scan(ang, 8)) /*cerca nemico*/ {
  52.                 cannon(ang, 7 * dist / 8);
  53.                 ang += 10;
  54.             } else
  55.              {
  56.                 ang -= 10;
  57.                 if (ang <= 280) 
  58.                     ang = 460;
  59.             }
  60.         }
  61.         drive(90, 0);
  62.         while (speed() > 49) 
  63.             cannon(45, 300);
  64.  
  65.         drive(0, 100);   /*muove verso est*/
  66.         ang = 180;
  67.         while (loc_x() < 940) {
  68.             if (dist = scan(ang, 8))   /*cerca nemico*/ {
  69.                 cannon(ang, 7 * dist / 8);
  70.                 ang += 10;
  71.             } else
  72.              {
  73.                 ang -= 10;
  74.                 if (ang <= 0) 
  75.                     ang = 190;
  76.             }
  77.         }
  78.         drive(90, 0);
  79.         while (speed() > 49) 
  80.             cannon(135, 300);
  81.     }
  82. }
  83.  
  84.  
  85.